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A LIST PROCESSING SUBROUTINE PACKAGE FOR THE IBM 1800/1130 

Gerald A. Muckel 
Data Techniques Branch 
Electronics Division 

ABSTRACT 

The computer user is const^uitly using and manipulating data structures under 
software control and most programming problems are problems of dealing with 
these data structures. Many of the methods used to manipulate dr,ta structures 
not easily handled by standard algorithms can be processed with list processing 
techniques. 

This paper presents some of the fundamentals of list processing techniques. In 
addition to this introduction to list processing, this paper will present a set of 
subroutines written for the IBM 1800/1130 that provide a base upon which the 
user can build a list processing capability. A demonstration of an information 
storage and retrieval system which shows a typical use of these subroutines in 
a list processing environment is also included. 

Some of the functions that this subroutine package provide are: 

(1) The creation of a work space used in setting up individual cells; 

(2) Upon user request, the allocation of a cell structured to fit his data 
structure; 

(3) Return by user action, a cell no longer needed to be reused; and 
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(4) Character and s 3 rmbol manipulation support. 


While not intending to deal exhaustively with the subject of list processing, this 
paper nevertheless will attempt to provide the laymen with an understanding of 
the basic concepts underlying this powerful programming technique. 
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A LIST-PROCESSING SUBROUTINE PACKAGE FOR THE IBM 1800/1130 


INTRODUCTION 

In ’’The Art of Computer Programming,” Volume 1, Chapter 2, Page 229, 
Donald Knuth states: ’’Although List-processing systems are useful in a large 
number of situations , they impose constraints on the programmer that are often 
unnecessary; it is usually better to use the methods of this chapter directly in 
one’s own programs tailoring the data format and the processing algorithms to 
the particular application. Too many people unfortunately still feel that liist- 
processing techniques are quite complicated (so that it is necessary to use some- 
one else’s carefully written interpretive system or set of subroutines), and that 
List-processing must be done only in a certain fixed way. We will see that there 
is nothing magic , mysterious , or difficult about the methods for dealing with 
complex structures ; these techniques are an important part of every program- 
mer ’s repertoire, and he can use them easily whether he is writing a program 
in assembly language or in a compiler language like FORTRAN or ALGOL. ” 

It is in the vein of indicating that ” . . . there is nothing magic, mysterious, 
or difficult ...” about dealing with complex data structures in FORTRAN, 
that this paper is presented. 

List-processing techniques are applicable in a surprising number of program- 
ming situations and computer programmers and analysts will find that their 
knowledge of these techniques is a valuable asset. 
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LIST-PROCESSING FUNDAMENTALS 


Before discussing the use of the subroutines to be presented, some basic list- 
processing concepts and terminology must be understood. This section is in- 
tended to give this needed background. 

A "list" is generally defined as a sequence of elements, each of which may also 
be a list. In less formal terms this means that although data items are norm- 
ally stored sequentially in core; if they were stored as a list, each item would 
contain not only the data item but the location of the next data item in sequence. 

A familiar example of a list is the English word "boy. " This word contains a 
sequence of the letters "b", "o" and "y". Thus this sequence of three letters 
forms a list. 

We could take additional letter lists, "The," "eats" and "food," and put these 
four letter-lists into a more complicated sequence of elements and form the 
list "The - boy - eats - food". This is now a sentence composed of words, each 
of which is composed of letters. Thus the elements of this list are themselves 
lists. 

We could continue to build the previous example into paragraphs which are lists 
of sentences , then perhaps into chapters which are lists of paragraphs , and so 
on. 
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The above example of paragraph structure is also an example of a *'list structure" 
which is defined as any implicit or explicit organization of lists. 

fii parsing or diagramming sentences, a restructuring and manipulating of lists 
would take place. And in writing a story the creation of lists of words would be 
composed into sentences. Also we would most likely change sentences by de- 
leting words and adding others in their places. 

The creation, manipulation, and erasure of lists is called "List-processing. " 

In the list of words, "The boy eats food, " each of the individual words which 
make up the sentence are also lists of letters and are thus called "sublists" of 
the larger list structure. More formally, list B is called a sublist of list A if 
list B is treated as if it were a single element of list A. 

We shall now look at lists in context of their computer representation. The 
basic element of a list is called a "cell" which is defined as one or more con- 
tiguous words of memory which is treated as an individual entity. The informa- 
tion contained in these words defines the "cell structure." The cell structure 
is defined in units of "fields" which are one or more bits of information within 
a cell. Thus cells are made up of fields and lists are made up of cells. 

The individual cells of a list need not occupy contiguous areas of core, thus we 
use within a cell a "pointer" to the next cell or cells within the structure. This 
pointer is a field whose contents is the "name" of the next cell in core. The 
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"name of a cell" is the absolute core address of the first word of the cell. Thus 
a pointer has as its value a core address and provides linkage between parts of 
a data structure. This function of a pointer gives rise to the synonym "link, " 
<Son:e authors distinguish a pointer as being a whole word field which contains 
a cell name and a link as being a field of less than a word in length which con- 
tains a cell name. ) 

The information contained within a cell which is non-linkage fields , is the data 
which the list structure is being built to enable the user to manipulate. 

In addition to naming the cellular elements within a list, we also name lists. 

The "name of a list" is the name of the first cell within the list. Thus a list 
also has as its name a core address. Generally any identifier whose value is a 
list name is called an "alias" of that list. A list only has one name but may 
have many aliases. 

In a high level language like FOHTHAN we usually deal with identifiers whose 
numerical value is treated in a mathematical sense only. But if we use a 
FORTRAN identifier whose value is treated as a pointer into a list structure it 
is called a "fixed reference pointer. " 

In a paper and pencil representation of lists we also follow certain conventions . 
Such as representing a cell as below where each horizontal line demonstrates 
a computer word, the whole rectangle represents a cell, and each subdivision 


of the cell is the fields within the cell; 



The above is an example of a three word cell with four fields. 

If this cell were part of a structure that had only one link per cell - say field 
- then a portion of the structure might be represented as below: 



Where the arrows indicate the linkage direction. The explicit cell names are 
left out because this information is a function of the location of the individual 
cells and not a function of the list structure itself. This is not to say that this 
information is not important, only that the relative value of the pointers does 
not change the relative makeup of the structure. 

The example given above is a 'linear list" in which each cell has a single link 
to the succeeding cell of the structure. A more complex example of a linear 
list and one which brings together many of the concepts introduced so far is the 
following: 


A 
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This is an example of a linear list (or linear linked list) of four cells whose list 
name is tue value of the alias *A'. Note that if A were an identifier within a 
program then it would be a fixed reference pointer also. 

At some point a finite list must end. The end of the sequence of cell pointers is 
indicated by the symbol ” 0 '' and is called the '*null pointer. " Any symbol can be 
used on paper but the actual value put into the link field of a cell represented 
within a computer must be some value that cannot possibly be construed as be- 
ing a valid pointer. Since pointers have as their value a number between zero 
and core size of the particular computer, a good choice of a null value would 
be any nonpositive number. And this is what is usually done. 

In a linear list we can easily advance thru a structure only in one direction - 
that indicated by the linkage direction. Thus we have no ’’back-up” facility with 
this type of structure. This problem is partly alleviated by replacing the null 
pointer in the last cell with the name of the first cell in the list. Thus our list 
looks like this: 



This type of structure is called a ’’circularly-linked list” (or a circular list) and 
has the advantage that any part of the structure can be reached from any other 
part of the structure. 
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Another type of list structure that gives this ability but in a more direct fashion 
is the use of links both forward and backward in each cell. This type of structure 
is called a * ’doubly-linked list” and is represented as follows: 


A 



This representation of a data structure has the added advantage of ease of refer- 
ence to any cell from any other cell, but has the obvious disadvantage of taking 
up one extra word per cell as the backward pointer. 

We can combine the features of the circular list and the doubly-linked list to 
obtain a structure called a ’’circular doubly-linked list. ” This structure is simi- 
lar to the doubly-linked list except that the null pointers at the end of each se- 
quence of backward and forward pointers is replaced by a pointer to the begin- 
ning of the sequence. Thus it has the appearance: 



7 







The structures presented so far have all been "linear list structures" and form 
an important class of data structures . The most important type of non-linear 
list structure is the "tree. " The structure is well named for it has a branching 
structure much like that of a real tree. 

The cells of a tree are also called "nodes" and contain pointer and data like the 
cells of a linear structure. The difference is that unlike a linear structure 
where each cell has a unique successor or "descendant," the nodes of a tree 
may have many descendants.* Thus a tree structure may look like this: 


T 



The above example of a 'binary tree" because each node can have as many as two 

descendents. In general an "n>ary tree" is defined as a tree structure that has 

n link fields in each cell. Note that as usual, any link field that contains the null 

value in the tree structure is indicated by the presence of the symbol "0". 

♦In mathematical graph theory, the definition of tree used here is normally referred to as a rooted tree and 
a more general definition of tree is presented. The interested reader should see: Ore, Oy tein ‘Graphs and 
Their Use’ Yale University, 1963, Random House, Mathematical Series. 









The creation, manipulation and erasure of list has as basic functions the inser- 
tion and deletion of cells of a list structure. There are many sources of pub- 
lished algorithms for performing insertions and deletion in a list structure (see 
particularly Knuth Volume 1, Chapter 2). 

Assume cells are to be inserted into the following list: 



An insertion of a cell between the cells containing 'DAT2* and *DAT3* can be 
done easily by changing only one pointer within the list. The list after insertion 
would look like the following: 



This is of course of very simple list structure and the insertion and deletion 
process becomes more involved. 

Although insertion and deletion of cells of a list structure are basic to list ma 
nipulation, two basic problems of computer implementation have been glossed 
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over: (1) Where do we get the cells that we are to insert into the structure, and 
(2) What do we do with the cell once it is deleted ? The procedure normally 
followed in a system that is to be generally applicable is to allow the user to 
create a workspace in which he can build cells, and to which he can return cells 
when they are no longer needed. In a FORTRAN embedded system a declared 
array is used for the cell workspace. This array is organized into cells and is 
termed the ’’list of available space” (LAVS) or ’’pool” of available storage. A 
routine to keep track of the structure in the LAVS is needed. This routine will 
keep track of which cells are available for use and which are being used. Then 
when a new cell is needed for the building of a structure, this routine is called 
upon to deliver the address of a cell that is available. Likewise it is necessary 
to have a method of returning unneeded cells to the LAVS. 

So far we have developed a need for three subroutines to establish and keep 
track of the pool of cells. It is also convenient to have the ability to erase a 
whole list at once. Without a routine to erase a list (i.e. , return all cells of 
the list to LAVS), it would be necessary to repeatedly cal" the routine that re- 
turns individual cells until all are in LAVS. So a fourth routine is added to our 
repertoire. 

So far four routines have been mentioned: one to establish the workspace into 
cells structured to the users needs; one to deliver cells upon request; one to 
return cells to LAVS; and one to erase a whole list or sublist in a structure. 
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It is generally agreed that the existence of these four routines are sufficient to 


give a FORTRAN user a complete list processing capability. 
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THE SUBROUTINES AND THEIR USE 


When a computer user decides to implement a list processing system on his 
machine, he has two alternate ways of accomplishing this. First, he can obtain 
a source level deck of one of the commercially available list processing language 
packages like SLIP, LISP, or COMIT and convert it to run on his machine. 

This of course involves a great deal of reprogramming since most of these 
languages were written for larger machines (like the Univac 1108) and take ad- 
vantage of capabilities of that machine that the 1300 user does not have. For 
example, SLIP is a FORTRAN embedded language and uses such features as 
named COMMON, variable dimensionality of arrays, and a 36 bit word into 
which two "full core" addresses can be stored as pointers. 

Another disadvantage of doing a conversion is that most of these packages have 
a fixed data structure and a user is stuck with this structure even if it does not 
fit into his problem context. Again using SLIP as an e;tample: SLIP uses cir- 
cular doubly-linked lists at all times and the user of SLIP must be satisfied 
with this. Admittedly it can usually be tolerated, but may not be the most effi- 
cient method for the user's application. 

The second alternative in achieving a list processing capability is to write a set 
a subroutines that give the user a 'general' list processing capability. By 
'general', I mean that the routines provide basic list processing capability but 
do not limit the user to a particular data structure. Rather they allow him to 
build any type of structure that fits into his problem context. 
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This second method is the one we adopted at our installation and this paper is 
intended as documentation for the subroutines that have been written to provide 
this list processing capability. As our applications become more complex it is 
expected that this basic system will be expanded by adding routines to provide 
the needed support. 

This subroutine package is intended as a base upon which to build in order to 
give an 1800 user a list processing and symbol manipulation capability. 

In a list processing environment it is necessary to create, manipulate, and 
erase lists at the users option. In fact, that is the definition of *'list processing. " 
The four subroutines MPOOL, GIVME, TAKIT, and ERASE serve the functions 
of creating and erasing whole or parts of a list structure. The method of manip- 
ulation of a list structure is user dependent but the routine INSTO, STORE, LOG 
and ICONT are tools that make the manipulation of the structure much easier in 
FORTRAN. 

The routines that provide a symbol manipulation capability are INSTO, LOG 
and IGONT mentioned above and the routines that give half word manipulation 
capability: IRHLF, ILHLF, SETL, SETR, STOL, and STOR. 

The following is a list of the routines now available along with an example of 
how each might be used. 
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1. L<XJ (A) returns the absolute core address of the FORTRAN variable 
*A*. If A were stored at location /702F, then the value of LOG (A) 
would be /702F. 

2. ICONT (AD) returns the contents of the absolute core address whose 
value is the value of the FORTRAN variable *AD'. If AD = 102, then 
ICONT (AD) = ICONT (102) = beginning address of VCORE in TSX. 
Note that this serves the same function as the LD function in the TSX 
and MPX systems. Also note that ICONT (LOG (A) ) = A. 

3. ILHLF (A) 

IRHLF (A) 

These routines return the left half or right half of the FORTRAN vari- 
able 'A*. The returned value is right justified in the accumulator. If 
location 1000 contained /7F02, then the following coding: 

J = ILHLF (ICONT (1000) ) 

K = IRHLF (ICONT (1000) ) 

would cause J and K to have the values /007F and /0002 respectively. 
Note that the following coding would cause J and K to have the same 
values as above. 

DATA M/Z7F02/ 


J = ILHLF (M) 
K = IRHLF (M) 
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4. SETL (FV, VAL) 

SETR (FV, VAL) 

These routines change the left or right half of the FORTRAN variable 
FV to the value of the variable VAL. If VAL is greater than half word 
precision of 255, then it is truncated to 8 bits. 

The coding: 

VI = 258 
V2 = 193 
V3 = 194 

CALL SETL (A, VI) 

CALL SETR (A, V2) 

C = V2 

CALL SETL (C, V3) 

would cause the variable A to have in its left half the value 2 (beca.use 
of truncation) Jind the value 193 in its right half. Since 193 = /Cl = 
’A’ and 194 = /C2 = 'B*, the variable C has the EBCDIC characters 
’BA’ as its contents. 

5. STOL (AD, VAL) 

STOR (AD, VAL) 

These routines function in a manner similar to SETL and SETR except 
that the FORTRAN variable ’AD’ is not altered but instead is intepreted 
as the absolute core address of the word whose left or right half is to 


15 



be changed. That is, STOL and STOH are indirect SET L and SETH. Thus 


STOL (LOG (A), VAL) 


is equivalent to 


SETL (A, VAL) 

6. INSTO (AD, VAL) 

This routine stores the value of the FORTRAN variable *VAL* into the 
core location whose address is the value of the FORTRAN variable 
'AD*. Thus 

CALL mSTO (7000, 169) 

would set the contents of location 7000 to the value of 169. 

It might be interesting for the reader to verify that if A is a one-word 
integer FORTRAN array then 

A (I) = K 

is equivalent to 

CALL INSTO (LOG (A) - I + 1, K) 
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A SAMPLE APPLICATION: AN IS & R SYSTEM 


A typical use of these routines in a list processing environment can be demon- 
strated by an information storage and retrieval program. In this program, 
data items are entered into a structure under a known key. The user can then 
ask the program to find all data entered under a key he is interested in and all 
related data items will be typed out on the 1053 typewriter. 

The method used to enter a data item under a given key is hash coding using a 
hash table with direct chaining. That is, the key is treated as numeric data and 
reduced to a number between 1 and the declared si 2 :e of an array to be used as 
a hash table (i.e. , the key is hashed). Then this array entry is used as a fixed 
reference pointer to a list (chain) of cells containing keys and their data and 
links to succeeding cells. 

It is the nature of hash coding that several unique keys could be hashed to the 
same number. Therefore it is necessary to store the key in the cell for com- 
parison before retrieval of the data. 

When searching for a key, the entry process is repeated to locate the proper 
chain. Then the chain is searched using its link field to walk down the list. 

The key in each cell is compared to the key being searched for. If a match is 
found, the data item is retrieved and the search continues until the end of the 
chain is reached. If no matches are found in the chain, it is known that no data 
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was ever entered under that key. This is true because the hash function is al- 
ways chosen to be repeatable. 

The commands recognized by the program are the following: 

(1) STORE KKKK DDDDDD 

This stores the data item ’DDDDDD’ into the structure under the key 
’KKKK’. 

(2) FIND KKKK 

The structure is searched for the occurrences of the key ’KKKK’ and 
all related data items are retrieved. 

(3) STOP 

The program executes a ’CALL EXIT’. 

NOTE: The support routines use one word of COMMON as a pointer to the top 


of the list being used as LAVS. 
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APPENDIX A 


THE SOURCE LANGUAGE LISTINGS OF THE SUBROUTINE 


This appendix contains a source language level listing and compilation of the 
demonstrative information storage and retrieval program and all the subroutine 


in the list processing package. 
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7 CALL STORE i KEY, DATA 
GO TO 10 
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I SR 

DUP FUNCTION COMPLETED 


// FOR STORE 
•NONPROCESS PROGRAM 
•LIST ALL 

•ONE WORD INTEGERS 

SUBROUTINE STORE ( KEVtOATA ) 

••*•••••••••••«•••••••••••••••••••••••••••••• •••••• 

c 

C THE SUBROUTINE 'STORE* STORES THE ELEMENT INTO THE SYSTEM USING 

C A 'DIRECT CHAINING' METHOD WITH A HASH TABLE ENTERED hY USE 

C OF THE HASH FUNCTION 'HASHF'. 

C 

C ••••••••••••••••«••••••••••••••••••**••••••*•••••••••••••*••••••«•«•««• 

INTEGER DATA! 3),KEY( 2) »HASHT( SO) ,HTSIZ 
COMMON IDIOT 
COMMON HASHT 
DATA HTSI2/50/ 

6 1 « IHASHIKEY.HTSIZI 
C 

C SAVE THE CURRENT VALUE OF THE HASH TABLE ENTRY TU BE USED 

C AND SET THE HASH TABLE TO ADOR OF CELL TO BE USED FOR STORE 

C 


C 

C 

C 

C 


C 

C 

C 

C 

C 

C 


NEXT * HASHT U ) 

CALL GIVME I HASHTU ) I 

PUT INTO THE CELL THE 'KEY' » THE 'DATA' , AND THE AOOR OF THE 
NEXT CELL ( OR NULL ON THE FIRST ENTRY ) IN THE CHAIN 

CALL INSTO ( HASHTUIfNEXT ) 

CALL INSTO ( HASHTU )-ltKEYm > 

CALL INSTO ( HASHTU)-2tKEYI2l I 
CALI. INSTO ( HASHT! n-3tOATAI 3) ) 

CALL INSTO ( HASHT!n-A,DATA(2) » 

CALL INSTO ( HASHT! n-5fOATA( 1) ) 

NOTE ' THIS METHOD PUTS THE MOST RECENTLY ENTERED ELEMENT AT 

THE 'TOP' OF THE CHAIN, SO IF TWO ELEMENTS HAVE THE SAME 
'KEY', THE MOST RECENT ONE STORED WILL BE RETRIEVED 
FROM 'FINOIT', 


RETURN 

END 

VARIABLE ALLOCATIONS 

IDIOT!ICI«FFFF HA SHT ! I C FFF E-FFCD HTS IZ ! I 1=0002 HI 1=0003 


NEXT ! I 


STATEMENT ALLOCATIONS 
6 =0010 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 

IHASH GIVME INSTO SUBSC SUBIN 


INTEGER CONSTANTS 

1*0008 2*0009 3=000A 

4=000B 

5«0U0C 


CORE REQUIREMENTS FOR STORE 
COMMON 52 INSKEL COMMON 0 

VARIABLES 

6 PROGRAM 

176 


END OF COMPILATION 


)«000A 
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FIND 

DUP FUNCTION COMPLETED 
// FOR HASHFIKEYf SIZE) 
«NONPROCESS PROGRAM 
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CORE REQUIREMENTS FOR IHASH 

COMMON 0 INSKEL COMMON 0 VARIABLES 6 PROGRAM 


IHASH 

DUP FUNCTION COMPLETED 
// ASM MOD 
♦LIST 

♦PRINT SYMBOL TABLE 
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OOOA 0 1090 SLT 16 REMAINDER TO AC 

OOOB 00 65000000 XRl LOX LI ♦-♦ RESTORE XRl 

0000 01 74020000 MOX L M0D»2 UPDATE ENTRY POINT 

OOOF 01 4C800000 BSC I MOD EXIT THRU MOD 

0012 END 


NO ERRORS IN ABOVE ASSEMBLY 
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5 MtlTE ( 3tl02 I CS 

102 FORMAT ( • WHY USE MPOOL FOR •.I2,» MORU CELLS. »,/t* YOU CaNNOI 
lUILO A NONTRIVAL STRUCTURE. • I 
RETURN 
END 


variable allocat ions 
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MPOOL 

OUP FUNCTION COMPLETED 
// FOR GIVME 
«LIST ALL 

♦NONPROCESS PROGRAM 
♦ONE WORD INTEGERS 

SUBROUTINE GIVME(I) 

C 

C 

C THIS ROUTINE MILL DELIVER IN THE NAME OF THE NEXT 

C AVAILABLE CELL FROM THE POOL. 

C 

INTEGER AVAILfNULL 

COMMON AVAIL 

DATA NULLt INUSE/-1»0/ 

IF ( AVAIL-NULL ) L»2«l 

1 1 -AVAIL 

AVAIL -ICONTi AVAIL) 

CALL INSTO(I»NULL) 

CALL INSTOn-lfINUSE) 

RETURN 

2 WRITE ( 3flOO ) 

100 FORMAT < • LAVS EXHAUSTED. • // ) 

CALL EXIT 
END 

VARIABLE ALLOCATIONS 

AVAIL! lO-FFFF NULLU >-0002 INUSEU )«0003 

STATEMENT ALLOCATIONS 
100 -0006 1 -001 F 2 -0038 

FEATURES SUPPORTED 
NQNPROCESS 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 

ICONT INSTO MWRT MCOMP SUBIN 

INTEGER CONSTANTS 

1-0004 3-0005 

CORE REQUIREMENTS FOR GIVME 

COMMON 2 INSKEL COMMON 0 VARIABLES 4 PROGRAM 58 


END OF COMPILATION 
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GIVME 

OUP FUNCTION COMPLETED 
// FOR TAKIT 
*US1 ALL 

^NOKPROCESS PROGRAM 
*ONE WORD INTEGERS 

SUBROUTINE TAKIT(CELL) 

C 

C 

C THIS ROUTINE WILL RETURN THE CELL WHOSE ALIAS IS 'CELL* TO 

C THE POOL* 

C 

INTEGER AVAlLfCELL 
COMMON AVAIL 
DATA INLAV/1/ 

IF I ICONTI CELL-ll-INLAV ) 2flt2 

1 WRITE ( 3«100 ) 

100 FORMAT (• CELL ALREADY IN LAVS <) 

RETURN 

2 CALL INSTO ( CELLtAVAIL ) 

AVAIL»CELL 

CALL INSTOICELL-lf INLAV) 

RETURN 

END 

VARIABLE ALLOCATIONS 
AVAIL! IC)*FFFF INLAVU )»0002 

STATEMENT ALLOCATIONS 
100 »0006 1 >0028 2 »002E 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 

ICONT INSTO MWRT MCOMP SUBIN 

INTEGER CONSTANTS 

180004 3^0005 

CORE REQUIREMENTS FOR TAKIT 

COMMON 2 INSKEL COMMON 0 VARIABLES 4 PROGRAM 62 


END OF COMPILATION 
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TAKIT 

OUP FUNCTION COMPLETED 
// FOR ERASE 
*NONPROCESS PROGRAM 
♦LIST ALL 

♦ONE WORD INTEGERS 

SUBROUTINE ERASE ( L I STtLWOf NULL P ) 

INTEGER P»Q 
C 

C THIS SUBROUTINE WILL RETURN THE WHOLE LIST ’LIST* TO THE 

C FREE STORE USED BY 'TAKIT*. 

C NOTE THE LIST IS ASSUMED TO BE A LINEAR LINKED LIST « 

C NOT A TREE OR OTHER MULTI-LINKED STRUCTURE 

C 

C LIST » POINTER TO TOP OF THE LIST TO BE ERASED 

C LWD » LINK WORD LOCATION IN THE CELLS OF THE LIST 

C NULLP « NULL POINTER SYMBOL USED IN THE LIST BEING ERASED 

C 

P*LIST 

3 IF ( P-NULLP ) l»2,l 

1 Q*P 

P a ICONT( O+LWO-1 ) 
call TAKIT(O) 

GO TO 3 

2 LIST a NULLP 
RETURN 

END 

variable ALLOCATIONS 

P(I )a0002 Q(I )a0003 

STATEMENT ALLOCATIONS 
3 =00X4 1 aOOlA 2 =0030 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
ICONT TAKIT SUBIN 

INTEGER CONSTANTS 
1=0004 

CORE REQUIREMENTS FOR ERASE 

COMMON 0 INSKEL COMMON 0 VARIABLES 4 PROGRAM 50 


END OF COMPILATION 
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ERASE 

OUP FUNCTION COMPLETED 
// ASM FLOS 
♦ LIST 

♦PRINT SYMBOL TABLE 
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0012 0 1010 SLA 16 

0013 0 1068 SLT 8 

0014 01 7401000C MDX L IRHLF,<*>1 

0016 01 4C80000C BSC I IRHLF 

0018 END 


SYMBOL TABLE 


ILHLF 0000 IRHLF OOOC 

NO ERRORS IN ABOVE ASSEMBLY. 
ILHLF IRHLF 

DUP FUNCTION COMPLETED 
// ASM STOS 
♦ LIST 

♦PRINT SYMBOL TABLE 


PAGE 1 


0000 


221634C0 


ENT 


SETL 

OOIA 


22163640 


ENT 


SETR 

OOOF 


228D64C0 


ENT 


STQL 

002A 


228D6640 


ENT 


ST OR 

0035 


095628D6 


ENT 


I NS TO 




* DIRECT 

W 

SET 

LEFT 

0000 

0 

0000 

SETL 

DC 


«•>« 

0001 

01 

65600000 


LDX 

11 

SETL 

0003 

00 

C 5800000 


LD 

11 

0 

0005 

0 

1888 

SHARL 

SRT 


8 

0006 

00 

C5800001 


LO 

11 

1 

0008 

0 

1068 


SLT 


8 

0009 

00 

05800000 


STO 

11 


OOOB 

01 

74020000 


MDX 

L 

SETL,+2 

OOOD 

01 

4C600000 


BSC 

I 

SETL 




* INDIRECT SET LEFT 


OOOF 

0 

0000 

STOL 

DC 



0010 

01 

6560000F 


LDX 

11 

STOL 

0012 

01 

60000000 


STX 

LI 

SETL 

0014 

00 

C5600000 


LD 

11 

0 

0016 

0 

DOOl 


STO 


♦ ♦1 

0017 

00 

C 4000000 


LD 

L 

*-♦ 

0019 

0 

70EB 


MDX 


SHARL 




♦ DIRECT 

A 

SET 

R IGHT 

OOIA 

0 

0000 

SETR 

DC 


*-♦ 

0018 

01 

6580001A 


LDX 

11 

SETR 

OOID 

00 

C5800001 


LD 

11 

1 

OOIF 

0 

1088 

SHARR 

SRT 


6 

0020 

00 

C 58000 00 


LD 

11 

0 

0022 

0 

1808 


SRA 


8 

0023 

0 

1088 


SLT 


8 

0024 

00 

05800000 


STO 

11 


0026 

01 

740200 lA 


MDX 

L 

SETR, +2 

0028 

01 

4C80001A 


BSC 

I 

SETR 


LOC(LOC(A)) TO XRl 
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♦ 

♦ INDIRECT SET RIGHT 


002A 

0 

0000 

STOR DC 



002 B 

01 

6580002A 

LDX 

11 

STOR 

0020 

01 

6000001A 

STX 

LI 

SETR 

002F 

00 

C 5800000 

LO 

11 

0 

0031 

0 

0001 

STO 


*♦1 

0032 

00 

C 4000000 

LO 

L 

»-« 

003A 

0 

70EA 

MOX 


SHARR 


* 


» INDIRECT WHOLE WORD STORE 
« 


0035 

0 

0000 

2NST0 DC 



0036 

01 

65800035 

LDX 

1 1 

INS TO 

0038 

00 

C5800000 

LO 

11 
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003A 
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0003 

STO 


♦+3 

0038 

00 

C 5800001 

LO 

11 

1 

0030 

00 

04000000 

STO 

L 

*-♦ 

003F 

01 

74020035 

MOX 

L 

INST0t<^2 

0041 

01 

4C 800035 

BSC 

I 

INSTO 

0044 



END 
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0M6 0# C 40000 00 LD L 

0008 01 f40i00Q0 MOX L IC0NT«-i'l 

000# 01 4COOOOOO BSC I ICONT 

OiOC END 


SYMBOL TABLE 
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0005 01 74010000 MDX L LOCt-M 

0007 01 4C800000 BSC 1 LX 

OOOA END 


SYMBOL TABLE 


LOG 0000 

NO ERRORS IN ABOVE ASSEMBLY. 
LOG 

DUP FUNCTION COMPLETED 
// XEQ I SR L 
*CCENO 


GLBt 

BUILD 

ISR 


GORE 

LOAD 

MAP 


TYPE 

NAME 

ARGl 

ARG2 

«CDW 

TABLE 

1A9C 

OOOC 

*IBT 

TABLE 

1AA6 

000 E 

*FIO 

TABLE 

1AB6 

0010 

♦ ETV 

TABLE 

1AG6 

OOOC 

»VTV 

TABLE 

IAD2 

0036 

*PNT 

TABLE 

1B06 

0004 

MAIN 

ISR 

I03B 


PNT 

I SR 

IBOA 


LIBF 

EBPRT 

10B6 

1AD2 

LIBF 

HOLEB 

1E56 

1AD5 

LIBF 

SUBSC 

IF78 

1AD8 

LIBF 

ISTOX 

1FA4 

lAOB 

GALL 

MPOOL 

2019 


GALL 

TYBZY 

2064 


LIBF 

MREO 

2213 

lADE 

LIBF 

MIOAl 

2304 

lAEl 

LIBF 

MCOMP 

22BB 

1AE4 

GALL 

FIND 

271G 


GALL 

STORE 

27B0 


LIBF 

MWRT 

2226 

IAE7 

CALL 

PRT 

2868 


LIBF 

ADRCK 

28B2 

IAEA 

LIBF 

SUB IN 

2916 

lAEO 

GALL 

LOG 

2950 


LIBF 

STFAC 

2970 

lAFO 

LIBF 

SBFAC 

2974 

1AF3 

CALL 

INSTO 

29B0 


LIBF 

MIDI 

22E3 

1AF6 

LIBF 

lOU 

29CC 

1 AF9 

GALL 

lOFIX 

2A66 


CALL 

BTIBT 

2A96 


CALL 

SAVE 

2A02 


LIBF 

FLOAT 

2AFA 

lAFC 

LIBF 

IFIX 

2B14 

lAFF 

GALL 

IHASH 

2B4D 


CALL 

ICONT 

2B6C 


LIBF 

COMGO 

2B76 

1B02 

GALL 

GIVME 

2BDE 


LIBF 

NORM 

2G0A 

1B05 

CALL 

MOO 

2G36 


GORE 


2C4A 

5382 

COMM 


7FCC 

0034 

GLBt 

ISR 

LD XQ 



39 


PRfJCEDiNG PAGE BLANK NOT FILMED 


APPENDIX B 

A TYPICAL RUN OF THE IS & R SYSTEM 

This appendix contains the console typewriter print-out of a session with the 
information storage and retrival system showing the input and output of a dem- 
onstration run. 
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iilORE DEMO DATA 

;>TORE BOYD l-O.K. 

;»TORE BOYD A 24 

STORE BOYD .< ISO 
STOR: BOYD H 6-1 
FIND DEMO 

THE ASSOCIATED DATA IS DATA 


FIND BOYD 

THE ASSOCIATED DATA IS H 6-1 


u ISO 
A 2H 


l-J.K. 

;>TORE DEMO POT OF 
STORE DEMO SE OOT 
STORE DEMO REVER- 
FIND DEMO 

THE ASSOCIATED DATA IS REVER- 
SE OOT 
POT OF 
DATA 


ST I RE BAD INPUT 

NO SUCH COMMAND IN THE RETRIEVAL LANGUAOE 


FOND BAD 

NO Such COMMAND IN THE RETRIEVAL lAr ^ >E 


uTOP 

N04 READY READER 
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APPENDIX C 



SUMMARY OF THE ROUTINES PRESENTLY AVAILABLE 

The following is a summary of the routines which are presently implemented in 
the list processing subroutine package: 

MPOOL (ARAY, NWRDS, CELSZ) 

ARAY = User provided array name in which the LAVS will be built 
NWRDS = Number words in the array ’’ARAY" to be used for LAVS 
CELSZ = Number words per cell to be set up in LAVS 
GIVME (CELAD) 

CELAD = Address of cell delivered from LAVS 
TAKIT (CELAD) 

CELAD = Address of the cell in the users environment which is being 
returned to LAVS 
ERASE (LIST, LPW, NULL) 

LIST = Fixed reference pointer whose value is the address of the list 
whose cells should cells should be retu^^ned to LAVS 
LPW = Relative word location in the cell which contains the link 
pointer 

NULL = The users null value. Cells will be returned until the liak 
word = ’NULL* 
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STOL(ADDR, VALUE) 

ADDR = Fortran variable whose value is the address of core word 
whose left half is to be altered. 

VALUE = Value to be put into left half of ’WORD*. 

STOR (ADDR, VALUE) 

Similar to 'STOL' except alters right half of word. 

SETL (V/ORD, VALUE) 

WORD = The variable whose left half will be altered. 

VALUE = As in ’STOL* 

NOTE: SETL (LOG (A), V) = STOL (A,V) 

FUNCTION TYPES: 

LOG (VARBL) 

Returns the absolute core location of the argument ’VARBL*. 

ICONT (ADDR) 

Returns the contents of the absolute address ’ADDR*. The ’LD* function 
is equivalent. 

ILHLF (ADJR) 

IRHLF (ADDR) 

Delivers the left field (or right field) of the contents of ’’ADDR*. i.e. , 
’ADDR’ is absolute core address. 
mSTO (CELNM, VAL) 

CELNM = Fort Van v/hose value = cell address 
VAL = Value to be place there 
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